home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok85 / ampel / simulation.mod < prev    next >
Text File  |  1993-11-04  |  949b  |  52 lines
  1. MODULE Simulation;
  2.  
  3. IMPORT
  4.   Ueberweg, io, Break;
  5.  
  6. VAR
  7.   u: Ueberweg.Ueberweg;
  8.  
  9. PROCEDURE Wait(s: LONGINT);
  10. VAR
  11.   a: ARRAY 128 OF CHAR;
  12. BEGIN
  13.   io.WriteString("RETURN> "); io.ReadString(a);
  14. END Wait;
  15.  
  16. BEGIN
  17.   NEW(u); Ueberweg.Init(u,FALSE); (* --- FALSE: Fussgaenger zuerst gruen *)
  18.  
  19.   io.WriteString("Simulation eines Fussgaenger-Ueberwegs"); io.WriteLn;
  20.   io.WriteString("Oberon-2 Version von Peter Froehlich"); io.WriteLn;
  21.   io.WriteString("Press CTRL-C to stop."); io.WriteLn;
  22.   io.WriteLn;
  23.  
  24.   LOOP
  25.     WHILE ~u.autoAmpel.istRot() DO
  26.       u.autoAmpel.Schalten();
  27.       u.Anzeigen();
  28.     END;
  29.  
  30.     WHILE ~u.fussAmpel.istGruen() DO
  31.       u.fussAmpel.Schalten();
  32.       u.Anzeigen();
  33.     END;
  34.  
  35.     Wait(100000);
  36.  
  37.     WHILE ~u.fussAmpel.istRot() DO
  38.       u.fussAmpel.Schalten();
  39.       u.Anzeigen();
  40.     END;
  41.  
  42.     WHILE ~u.autoAmpel.istGruen() DO
  43.       u.autoAmpel.Schalten();
  44.       u.Anzeigen();
  45.     END;
  46.  
  47.     Wait(100000);
  48.  
  49.   END;
  50.  
  51. END Simulation.
  52.